home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / examples.arc / EXAMPL64.PRO < prev    next >
Text File  |  1986-10-07  |  412b  |  22 lines
  1. /*
  2.   This is a sample Turbo Prolog program
  3.   that calls C Language routines. See
  4.   EXAMPL65.C for more information.  Read
  5.   the READ64.ME file on this disk for
  6.   more information.
  7. */
  8.  
  9. global domains
  10.   ilist = integer*
  11.   ifunc = f(integer)
  12.   
  13. global predicates
  14.   clist(ilist, ifunc) - (i,o) (o,i) language c
  15.  
  16. goal
  17.   clearwindow,
  18.   clist([3],X),
  19.   write(X), nl,
  20.   clist(Y,X),
  21.   write(Y), nl.
  22.